var r,cv,dt:real;
begin
     write('nhap ban kinh:');
     readln(r);
     cv:=2*3.14*r;
     write('chu vi la: ',cv);
     dt:=r*r*3.14;
     write('dien tich la: ',dt);
     readln;
end.